home *** CD-ROM | disk | FTP | other *** search
/ Amiga Inside! / Amiga FD Inside (1995)(Ultramax).iso / berndspd / sonstiges / askenv / test < prev    next >
Text File  |  1993-05-29  |  1KB  |  70 lines
  1. STACK 5000
  2.  
  3. ECHO "*n*n                  AskEnv Testscript*N*N"
  4. ECHO "              Requester Tool für Scriptfiles*N*N"
  5.  
  6. RESIDENT AskEnv PURE
  7. ECHO "              AskEnv resident geladen...*N*N"
  8.  
  9.  
  10. ECHO "              Filerequester: " NOLINE
  11.  
  12. AskEnv FREQ "Wähle File oder Dir" EOL
  13. IF WARN
  14.  ECHO "abgebrochen"
  15. ENDIF
  16.  
  17. ECHO "*N              Systemrequester: " NOLINE
  18.  
  19.  
  20. AskEnv SREQ "Ist dein Screen-Font Topaz 8 ?" BODY "(oder was vergleichbar grosses)" NEG "Topaz 8" POS "grösser"
  21.  
  22. ECHO "ok"
  23.  
  24. IF WARN 
  25.  CD hires
  26. ELSE
  27.  CD lace
  28. ENDIF
  29.  
  30. AskEnv GADFILE Intro.req
  31.  
  32. AskEnv GADFILE Warning.req
  33.  
  34. ECHO "*N              Pfadauswahl:"
  35.  
  36. AskEnv GADFILE Strings.req
  37.  
  38. IF WARN
  39.  ECHO "*N               abgebrochen!"
  40. ELSE
  41.  ECHO "*N                    Pfad:" $askPath
  42.  ECHO "*N                     Dir:" $askDir
  43. ENDIF
  44.  
  45. AskEnv GADFILE Offset.req
  46. IF NOT WARN 
  47.  IF $choice EQ "0"
  48.   Set lOffset 0
  49.  ENDIF
  50.  IF $choice EQ "1"
  51.   Set lOffset 100
  52.  ENDIF
  53.  IF $choice EQ "2"
  54.   Set lOffset 200
  55.  ENDIF
  56.  IF $choice EQ "3"
  57.   Set lOffset 400
  58.  ENDIF
  59. ELSE
  60.  Set lOffset 10
  61. ENDIF
  62.  
  63. AskEnv GADFILE Select.req
  64.  
  65. RESIDENT AskEnv REMOVE
  66.  
  67. ECHO "*N              Demo beendet..."
  68.  
  69. ECHO
  70.